home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8702a.d64
/
listing 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
708b
|
35 lines
100 REM PROGRAMM ZUR DEFINITION EINES
110 REM NLQ-ZEICHENS AUF DEM STAR NL-10
120 :
130 OPEN 4,4
140 PRINT#4,CHR$(27)CHR$(120)CHR$(49);
150 PRINT#4,CHR$(27)CHR$(58)CHR$(0)CHR$(0)CHR$(0);
160 PRINT#4,CHR$(27)CHR$(38)CHR$(0)CHR$(64)CHR$(64);
170 FORI=0TO46
180 READM
190 PRINT#4,CHR$(M);
200 NEXTI
210 PRINT#4,CHR$(27)CHR$(37)CHR$(49)CHR$(0);
220 PRINT#4,"OMEGA : ";
230 FORI=1TO10
240 PRINT#4,CHR$(64)" ";
250 NEXT
260 PRINT#4
270 CLOSE4:END
1000 REM DATEN DES NLQ-ZEICHENS
1005 :
1006 REM DATUM FUER UNTERLAENGE
1010 DATA 128
1015 :
1016 REM DATEN FUER 1. DRUCKDURCHGANG
1020 DATA 0, 1, 0, 56, 64, 4, 4
1030 DATA 131,128,128,128,128,128,128
1040 DATA 128,131, 4, 4, 64, 56, 0
1050 DATA 1, 0
1055 :
1056 REM DATEN FUER 2. DRUCKDURCHGANG
1060 DATA 0, 3, 1,113, 9,129,129
1070 DATA 7, 0, 0, 0, 0, 0, 0
1080 DATA 0, 7,129,129, 9,113, 1
1090 DATA 3, 0